home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 21
/
021.d81
/
pixel page
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
35 lines
4 ifx=0thenx=1:gosub1000: load"unpacker",8,1
5 ifx=1thenx=2:load"pixel.shp",8,1
10 poke249,224:poke250,204: rem screen/color
20 poke251,0:poke252,64: rem shp buffer
30 poke253,0:poke254,0: rem x-pos,y-pos
35 print"[145][145] press space bar to view cover."
37 print" press it again to return to loadstar."
40 wait198,1:poke198,0
42 s=54272:fori=.to23:pokes+i,0:next
43 pokes+24,15:pokes+5,255:pokes+6,255
44 pokes+12,255:pokes+13,255:pokes+19,255
45 pokes+20,255:pokes+1,3:pokes+8,3
46 pokes+15,3:pokes+7,7:pokes+14,18
47 pokes+15,3:pokes+7,7:pokes+14,18
48 pokes+4,17:pokes+11,17:pokes+18,17
50 sys51456: rem unpack normal shp
60 sys51459: rem show screen
70 wait198,1:poke198,0
80 sys51459: rem return to normal
90 :
95 load"hello connect",8:end
1000 rem main screen
1002 poke53280,0:poke53281,0:print"[147]"chr$(142)chr$(8)
1004 printspc(13)"[158]loadstar #21"
1006 print""spc(14)"pixel page"
1010 print:print:print
1012 print:print:print
1014 print"[158] monolith"
1016 print:print:print
1018 print:print
1020 print"[154] cover designed by jerry jones using"
1022 printspc(12)"the koala pad."
1030 print"[156] loading picture...please wait."
1040 return